00010	BEGIN
00020	DEFINE CR="'15",LF="'12",CRLF="CR&LF",TB="'11";
00030	REQUIRE "DPYSUB.HDR[1,PDQ]" SOURCE_FILE;
00040	INTEGER I,J,K,L;
00050	INTEGER ARRAY DPYBUF[0:512];
00060	OUTSTR("INITIAL BUF"&CRLF);
00070	FOR I←0 STEP 1 UNTIL 15 DO BEGIN
00080	  OUTSTR(CVOS(DPYBUF[I])&TB);
00090	  J←J+1; IF J=4 THEN BEGIN J←0; OUTSTR(CRLF); END;END;OUTSTR(CRLF);
00100	DPYSET(DPYBUF);
00110	OUTSTR("AFTER DPYSET"&CRLF);
00120	FOR I←0 STEP 1 UNTIL 15 DO BEGIN
00130	  OUTSTR(CVOS(DPYBUF[I])&TB);
00140	  J←J+1; IF J=4 THEN BEGIN J←0; OUTSTR(CRLF); END;END;OUTSTR(CRLF);
00150	L←DPYPARS; OUTSTR("DPYPARS= "&CVOS(L)&CRLF);
00160	OUTSTR("DPYPTR= "&CVOS(DPYPTR)&CRLF);
00170	FOR I←0 STEP 1 UNTIL 15 DO BEGIN
00180	  OUTSTR(CVOS(DPYBUF[I])&TB);
00190	  J←J+1; IF J=4 THEN BEGIN J←0; OUTSTR(CRLF); END;END;OUTSTR(CRLF);
00200	
00320	OUTSTR(CRLF);
00330	CLRBUF;
00340	OUTSTR("AFTER CLRBUF"&CRLF);
00350	OUTSTR("DPYPTR= "&CVOS(DPYPTR)&CRLF);
00360	FOR I←0 STEP 1 UNTIL 15 DO BEGIN
00370	  OUTSTR(CVOS(DPYBUF[I])&TB);
00380	  J←J+1; IF J=4 THEN BEGIN J←0; OUTSTR(CRLF); END;END;OUTSTR(CRLF);
00390	DPYSET(DPYBUF);
00410	OUTSTR("AFTER DPYSET"&CRLF);
00415	OUTSTR("DPYPTR= "&CVOS(DPYPTR)&CRLF);
00420	FOR I←0 STEP 1 UNTIL 15 DO BEGIN
00430	  OUTSTR(CVOS(DPYBUF[I])&TB);
00440	  J←J+1; IF J=4 THEN BEGIN J←0; OUTSTR(CRLF); END;END;OUTSTR(CRLF);
00450	AIVECT(-640,-128);
00460	OUTSTR("AFTER DPYSET AND AIVECT(-640,-128) "&CRLF);
00470	OUTSTR("DPYPTR= "&CVOS(DPYPTR)&CRLF);
00480	FOR I←0 STEP 1 UNTIL 15 DO BEGIN
00490	  OUTSTR(CVOS(DPYBUF[I])&TB);
00500	  J←J+1; IF J=4 THEN BEGIN J←0; OUTSTR(CRLF); END;END;OUTSTR(CRLF);
00510	L←DPYPARS; OUTSTR("DPYPARS= "&CVOS(L)&CRLF);
00520	OUTSTR("DPYPTR= "&CVOS(DPYPTR)&CRLF);
00530	FOR I←0 STEP 1 UNTIL 15 DO BEGIN
00540	  OUTSTR(CVOS(DPYBUF[I])&TB);
00550	  J←J+1; IF J=4 THEN BEGIN J←0; OUTSTR(CRLF); END;END;OUTSTR(CRLF);
00560	FOR K←1 STEP 1 UNTIL 4 DO BEGIN
00570	  RVECT(1,10);
00575	  END;
00580	  OUTSTR("AFTER "&CVS(K)&" INPUTS OF RVECT(1,10)"&CRLF);
00600	OUTSTR("DPYPTR= "&CVOS(DPYPTR)&CRLF);
00610	  FOR I←0 STEP 1 UNTIL 15 DO BEGIN
00620	    OUTSTR(CVOS(DPYBUF[I])&TB);
00630	    J←J+1; IF J=4 THEN BEGIN J←0; OUTSTR(CRLF); END;END;OUTSTR(CRLF);
00670	OUTSTR(CRLF);
00680	END;
00690	AIVECT(-640,-385);
00700	OUTSTR("DPYPTR= "&CVOS(DPYPTR)&CRLF);
00710	PT←DPYPTR;
00720	
00730	FOR K←1 STEP 0 UNTIL 4 DO BEGIN
00740	  RVECT(1,-10);
00750	  END;
00760	  OUTSTR("AFTER "&CVS(K)&" INPUTS OF RVECT(1,10)"&CRLF);
00770	OUTSTR("DPYPTR= "&CVOS(DPYPTR)&CRLF);
00780	  FOR I←0 STEP 1 UNTIL 15 DO BEGIN
00790	    OUTSTR(CVOS(DPYBUF[I])&TB);
00800	    J←J+1; IF J=4 THEN BEGIN J←0; OUTSTR(CRLF); END;END;OUTSTR(CRLF);
00810	AIVECT(-640,-385);
00820	OUTSTR("DPYPTR AFTER FINAL AIVECT "&CVOS(PTYPTR);&CRLF);
02000	END;